home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / windows / win31 / macsyma.arj / MACSDEMO.EXE / UNITS.OUT < prev    next >
Text File  |  1993-09-15  |  7KB  |  229 lines
  1.  
  2. (c1) /*
  3.           DEMONSTRATION OF PACKAGE `UNITS'
  4. */
  5. (ratprint:false, if get('units,'version)=false then load("units"))$
  6. C:\MACSD2B\share\units.fas being loaded.
  7.  
  8. (c2) /* ************************************************************
  9.             Some Examples of Conversion to MKS Units
  10. */
  11. 0.5*(32.*feet/sec^2)*(3.5*minutes)^2;
  12. |$label(0,15,Times New Roman,$(d2$))215066.8$hinge()$in( )meter
  13.  
  14. (c3) 152.*miles/(2.5*hours);
  15. |$label(0,15,Times New Roman,$(d3$))$q(27.1742$in( )meter,second)
  16.  
  17. (c4) 700.*dynes/cm^2;
  18. |$label(0,15,Times New Roman,$(d4$))$q(70.0$in( )kilogram,meter$in( )$sup(second,2))
  19.  
  20. (c5) 12000.*btu/hour;
  21. |$label(0,15,Times New Roman,$(d5$))$q(3514.5$in( )meter$in( )newton,second)
  22.  
  23. (c6) /* ************************************************************
  24.                 1. Space and Time
  25. */
  26. /*** Time ***/
  27. 14*days;
  28. |$label(0,15,Times New Roman,$(d6$))1209600.0$hinge()$in( )second
  29.  
  30. (c7) 48*hours;
  31. |$label(0,15,Times New Roman,$(d7$))172800.0$hinge()$in( )second
  32.  
  33. (c8) 60*minutes;
  34. |$label(0,15,Times New Roman,$(d8$))3600.0$hinge()$in( )second
  35.  
  36. (c9) 12.5*milliseconds;
  37. |$label(0,15,Times New Roman,$(d9$))0.0125$hinge()$in( )second
  38.  
  39. (c10) /*** Length ***/
  40. 100*lightyear;
  41. |$label(0,15,Times New Roman,$(d10$))9.46083e+17$hinge()$in( )meter
  42.  
  43. (c11) 2.5*parsecs;
  44. |$label(0,15,Times New Roman,$(d11$))7.71e+16$hinge()$in( )meter
  45.  
  46. (c12) 26*miles;
  47. |$label(0,15,Times New Roman,$(d12$))41834.0$hinge()$in( )meter
  48.  
  49. (c13) 7*yards;
  50. |$label(0,15,Times New Roman,$(d13$))6.4008$hinge()$in( )meter
  51.  
  52. (c14) 6*feet;
  53. |$label(0,15,Times New Roman,$(d14$))1.8288$hinge()$in( )meter
  54.  
  55. (c15) 2*inches;
  56. |$label(0,15,Times New Roman,$(d15$))0.0508$hinge()$in( )meter
  57.  
  58. (c16) 0.7*microns;
  59. |$label(0,15,Times New Roman,$(d16$))7.00001e-7$hinge()$in( )meter
  60.  
  61. (c17) 6*angstrom;
  62. |$label(0,15,Times New Roman,$(d17$))6.00002e-10$hinge()$in( )meter
  63.  
  64. (c18) /*** Area ***/
  65. 1/2*acre;
  66. |$label(0,15,Times New Roman,$(d18$))2023.43$hinge()$in( )$sup(meter,2)
  67.  
  68. (c19) /*** Volume ***/
  69. 4*gallons;
  70. |$label(0,15,Times New Roman,$(d19$))0.01514$hinge()$in( )$sup(meter,3)
  71.  
  72. (c20) 3*quarts;
  73. |$label(0,15,Times New Roman,$(d20$))0.00284$hinge()$in( )$sup(meter,3)
  74.  
  75. (c21) pint;
  76. |$label(0,15,Times New Roman,$(d21$))4.73125e-4$hinge()$in( )$sup(meter,3)
  77.  
  78. (c22) 2*tablespoons;
  79. |$label(0,15,Times New Roman,$(d22$))2.94401e-5$hinge()$in( )$sup(meter,3)
  80.  
  81. (c23) 22.4*milliliters;
  82. |$label(0,15,Times New Roman,$(d23$))2.24e-5$hinge()$in( )$sup(meter,3)
  83.  
  84. (c24) /*** Speed ***/
  85. 60*knots;
  86. |$label(0,15,Times New Roman,$(d24$))$q(30.8866$in( )meter,second)
  87.  
  88. (c25) 0.5*lightspeed;
  89. |$label(0,15,Times New Roman,$(d25$))$q(1.49896e+8$in( )meter,second)
  90.  
  91. (c26) /*** Angle ***/
  92. 45*degrees;
  93. |$label(0,15,Times New Roman,$(d26$))0.7854$hinge()$in( )radian
  94.  
  95. (c27) 0.7853982*radians;
  96. |$label(0,15,Times New Roman,$(d27$))0.7854$hinge()$in( )radian
  97.  
  98. (c28) /*** Frequency ***/
  99. 60*cycles/second;
  100. |$label(0,15,Times New Roman,$(d28$))$q(376.991$in( )radian,second)
  101.  
  102. (c29) 6*gigahertz;
  103. |$label(0,15,Times New Roman,$(d29$))$q(3.76989e+10$in( )radian,second)
  104.  
  105. (c30) /* ************************************************************
  106.                 2. Stress and Energy
  107. */
  108. /*** Mass ***/
  109. 155*poundsmass;
  110. |$label(0,15,Times New Roman,$(d30$))70.3068$hinge()$in( )kilogram
  111.  
  112. (c31) 16*ounces;
  113. |$label(0,15,Times New Roman,$(d31$))0.45359$hinge()$in( )kilogram
  114.  
  115. (c32) 1*dekagram;
  116. |$label(0,15,Times New Roman,$(d32$))0.01$hinge()$in( )kilogram
  117.  
  118. (c33) 238*amu;
  119. |$label(0,15,Times New Roman,$(d33$))3.95138e-25$hinge()$in( )kilogram
  120.  
  121. (c34) /*** Energy ***/
  122. btu;
  123. |$label(0,15,Times New Roman,$(d34$))1054.35$hinge()$in( )meter$hinge()$in( )newton
  124.  
  125. (c35) 100*joules;
  126. |$label(0,15,Times New Roman,$(d35$))100$hinge()$in( )meter$hinge()$in( )newton
  127.  
  128. (c36) 1000*ergs;
  129. |$label(0,15,Times New Roman,$(d36$))1.0e-4$hinge()$in( )meter$hinge()$in( )newton
  130.  
  131. (c37) 13.6*ev;
  132. |$label(0,15,Times New Roman,$(d37$))2.17884e-18$hinge()$in( )meter$hinge()$in( )newton
  133.  
  134. (c38) /*** Power ***/
  135. 150*kilowatts;
  136. |$label(0,15,Times New Roman,$(d38$))$q(150000$in( )meter$in( )newton,second)
  137.  
  138. (c39) 75*horsepower;
  139. |$label(0,15,Times New Roman,$(d39$))$q(55927.5$in( )meter$in( )newton,second)
  140.  
  141. (c40) /*** Force ***/
  142. 1.0E4*newtons;
  143. |$label(0,15,Times New Roman,$(d40$))$q(10000.0$in( )kilogram$in( )meter,$sup(second,2))
  144.  
  145. (c41) 75*poundsforce;
  146. |$label(0,15,Times New Roman,$(d41$))$q(333.617$in( )kilogram$in( )meter,$sup(second,2))
  147.  
  148. (c42) 1.0e3*dynes;
  149. |$label(0,15,Times New Roman,$(d42$))$q(0.01$in( )kilogram$in( )meter,$sup(second,2))
  150.  
  151. (c43) /*** Pressure ***/
  152. 14.6*psi;
  153. |$label(0,15,Times New Roman,$(d43$))$q(100663.5$in( )kilogram,meter$in( )$sup(second,2))
  154.  
  155. (c44) 100*bars;
  156. |$label(0,15,Times New Roman,$(d44$))$q(10000000.0$in( )kilogram,meter$in( )$sup(second,2))
  157.  
  158. (c45) /*** Temperature ***/
  159. 67*degreef;
  160. |$label(0,15,Times New Roman,$(d45$))292.778$hinge()$in( )degreekelvin
  161.  
  162. (c46) 20*degreec;
  163. |$label(0,15,Times New Roman,$(d46$))293.0$hinge()$in( )degreekelvin
  164.  
  165. (c47) 300*degreer;
  166. |$label(0,15,Times New Roman,$(d47$))166.667$hinge()$in( )degreekelvin
  167.  
  168. (c48) /* ************************************************************
  169.                 3. Electromagnetism
  170. */
  171. /*** Charge ***/
  172. 2*statcoulombs;
  173. |$label(0,15,Times New Roman,$(d48$))6.67113e-11$hinge()$in( )coulomb
  174.  
  175. (c49) 120*esu;
  176. |$label(0,15,Times New Roman,$(d49$))4.00276e-9$hinge()$in( )coulomb
  177.  
  178. (c50) /*** Current ***/
  179. 15*amps;
  180. |$label(0,15,Times New Roman,$(d50$))$q(15$in( )coulomb,second)
  181.  
  182. (c51) 50*microamps;
  183. |$label(0,15,Times New Roman,$(d51$))$q(5.00001e-5$in( )coulomb,second)
  184.  
  185. (c52) /*** Electrical Potential ***/
  186. 120*volts;
  187. |$label(0,15,Times New Roman,$(d52$))$q(120$in( )kilogram$in( )$sup(meter,2),coulomb$in( )$sup(second,2))
  188.  
  189. (c53) 15*statvolts;
  190. |$label(0,15,Times New Roman,$(d53$))$q(4496.89$in( )kilogram$in( )$sup(meter,2),coulomb$in( )$sup(second,2))
  191.  
  192. (c54) 12*picovolts;
  193. |$label(0,15,Times New Roman,$(d54$))$q(1.2e-11$in( )kilogram$in( )$sup(meter,2),coulomb$in( )$sup(second,2))
  194.  
  195. (c55) /*** Magnetism ***/
  196. 100*gauss;
  197. |$label(0,15,Times New Roman,$(d55$))$q(0.01$in( )kilogram,coulomb$in( )second)
  198.  
  199. (c56) weber;
  200. |$label(0,15,Times New Roman,$(d56$))$q(kilogram$in( )$sup(meter,2),coulomb$in( )second)
  201.  
  202. (c57) /*** Resistance ***/
  203. 1000*ohms;
  204. |$label(0,15,Times New Roman,$(d57$))$q(1000$in( )kilogram$in( )$sup(meter,2),$sup(coulomb,2)$in( )second)
  205.  
  206. (c58) /*** Capacitance ***/
  207. 150*microfarads;
  208. |$label(0,15,Times New Roman,$(d58$))1.5e-4$hinge()$in( )farad
  209.  
  210. (c59) /*** Inductance ***/
  211. 10*millihenries;
  212. |$label(0,15,Times New Roman,$(d59$))0.01$hinge()$in( )henry
  213.  
  214. (c60) /* ************************************************************
  215.                 4. Miscellaneous
  216. */
  217. /*** Illumination ***/
  218. 1750*lumens;
  219. |$label(0,15,Times New Roman,$(d60$))$q(2.618$in( )kilogram$in( )$sup(meter,2),$sup(second,3))
  220.  
  221. (c61) 24*footcandles;
  222. |$label(0,15,Times New Roman,$(d61$))$q(0.38647$in( )kilogram,$sup(second,3))
  223.  
  224. (c62) /*** Viscosity ***/
  225. 100*poise;
  226. |$label(0,15,Times New Roman,$(d62$))$q(10.0$in( )kilogram,meter$in( )second)
  227.  
  228. (c63) /* Clean up */ reset(ratprint)$
  229.